home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -readerstuff- / richard_west / install_zoom next >
Text File  |  1999-09-13  |  2KB  |  47 lines
  1. ; $VER: 1.0 (22.07.99)
  2. (set cx(askdir(prompt "Select the location for Zoom")
  3.   (help "Zoom will be installed to this location.") (default "SYS:WBStartup/")))
  4.  
  5. (copyfiles
  6.   (prompt("Proceed with installation of Zoom?"))
  7.   (source "Zoom") (dest cx) (infos) (confirm)
  8.   (help "This is the Zoom installation script. You do want to install Zoom? Are you stupid?"))
  9.  
  10. (complete 25)
  11.  
  12. (set df1 (/(getversion "Libs:xfdmaster.library")65536))
  13. (set df2 (-(getversion "Libs:xfdmaster.library")(* df1 65536)))
  14. (set df3 (/(getversion "Libs/xfdlibs/xfdmaster.library")65536))
  15. (set df4 (-(getversion "Libs/xfdlibs/xfdmaster.library")(* df3 65536)))
  16.  
  17. (copyfiles
  18.   (prompt("Current xfdmaster.library is %ld.%ld\n\nInstall %ld.%ld?" df1 df2 df3 df4))
  19.   (source "Libs/xfdlibs") (dest "Libs:")  (all) (confirm)
  20.   (help "The dir called xfd is full of xfdmaster's brainfiles, which you might have updated at some time without updating the library. If you have the xfd setup installed already, it might be best not to copy those unless your copy of xfdmaster.library is miles out of date."))
  21.  
  22. (complete 50)
  23.  
  24. (set id1 (/(getversion "Libs:fileid.library")65536))
  25. (set id2 (-(getversion "Libs:fileid.library")(* id1 65536)))
  26. (set id3 (/(getversion "Libs/fileid.library")65536))
  27. (set id4 (-(getversion "Libs/fileid.library")(* id3 65536)))
  28.  
  29. (copyfiles
  30.   (prompt("Current fileid.library is %ld.%ld\n\nInstall %ld.%ld?" id1 id2 id3 id4))
  31.   (source "Libs/fileid.library") (dest "Libs:") (confirm)
  32.   (help "How far do you think you are going to get without this library?"))
  33.  
  34. (complete 75)
  35.  
  36. (set rq1 (/(getversion "Libs:reqtools.library")65536))
  37. (set rq2 (-(getversion "Libs:reqtools.library")(* rq1 65536)))
  38. (set rq3 (/(getversion "Libs/reqtools.library")65536))
  39. (set rq4 (-(getversion "Libs/reqtools.library")(* rq3 65536)))
  40.  
  41. (copyfiles
  42.   (prompt("Current reqtools.library is %ld.%ld\n\nInstall %ld.%ld?" rq1 rq2 rq3 rq4))
  43.   (source "Libs/reqtools.library") (dest "Libs:") (confirm) (help "Get on with it."))
  44.  
  45. (complete 100)
  46.  
  47. (set @default-dest cx)